(Farrayp): Accept bool-vectors and char-tables.

diff --git a/src/data.c b/src/data.c
index c84b137b5d66e7b696c560a5d09faf2eda43d62e..9a0788ae7194a0f099f5c8560fc11eb8f8a4e13d 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -350,7 +350,8 @@ DEFUN ("arrayp", Farrayp, Sarrayp, 1, 1, 0, "T if OBJECT is an array (string or
   (object)
      Lisp_Object object;
 {
-  if (VECTORP (object) || STRINGP (object))
+  if (VECTORP (object) || STRINGP (object)
+      || CHAR_TABLE_P (object) || BOOL_VECTOR_P (object))
     return Qt;
   return Qnil;
 }